﻿Public Class frmShowError

    Public Sub Initialize(ByVal inNameApp As String, ByVal inNameModule As String, ByVal inNameFunction As String, ByVal inDescription As String)
        lblDescription.Text = inDescription
        lblModule.Text = inNameModule
        lblRoutine.Text = inNameFunction
        lblSoftware.Text = inNameApp
    End Sub

    Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClose.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub

End Class